home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Sound / MrMPEG / ListSave.rexx < prev    next >
OS/2 REXX Batch file  |  1997-11-22  |  530b  |  22 lines
  1. /* ListSave.rexx */
  2.  
  3. options results; parse arg mode; address MrMPEG
  4.  
  5. ASLFR_InitialDrawer    = 0x80080009;    ASLFR_InitialFile    = 0x80080008
  6. MUIA_List_Entries    = 0x80421654
  7.  
  8. if mode = 1 then
  9.   aslrequest TITLE '"Save list"' ATTRS ASLFR_InitialDrawer "ENVARC:",
  10.     ASLFR_InitialFile "MrMPEG.list"
  11. else result = "ENV:MrMPEG.list"
  12. if open('List', result, 'w') = 1 then do
  13.   list ID SLIST ATTRS MUIA_List_Entries
  14.   max = result
  15.   do i = 0 to max - 1
  16.     list ID SLIST POS i
  17.     writeln('List', result)
  18.   end
  19.   call close('List')
  20. end
  21. return
  22.